home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / mtic132o.zip / INFOS.RAR / INFOS / MTS_CONC.200 < prev    next >
Text File  |  1996-06-20  |  4KB  |  86 lines

  1. (*
  2.  
  3.    Turbo Pascal structures for Concord
  4.    needed for 
  5.  
  6.              ▓███▀█▀█ ▓███▀█ ▓███▀▀  ▓███▀█ ▀▀████▀▀  ▀▀▀ ▓███▀█
  7.              ▒███   █ ▒███▄  ▒███ ▀█ ▒███▄█   ███░   ███░ ▒███
  8.              ████   █ ████▄▄ ████▄▄█ ████ █   ███▒   ███▒ ████▄█
  9.                     ▀
  10.    This document and MegaTIC are Copyright (c) by DiMeS,
  11.    Dirk Mertens, 1995,96. All rights reserved.
  12.  
  13. *)
  14.  
  15. CONST
  16.   COConfig     = 'CONFIG.DAT';
  17.   COFileAreas  = 'FAREAS.DAT';
  18.  
  19.   ID_VER       = $00001A9E;               (* Concord data file ID ....... *)
  20.   ID_CFG       = ID_VER or $00030000;
  21.   ID_CFG_HDR   = ID_CFG or $01000000;
  22.   ID_CFG_REC   = ID_CFG or $02000000;
  23.   ID_CFG_DOOR  = ID_CFG or $03000000;
  24.   ID_CFG_FAREA = ID_CFG or $04000000;
  25.  
  26.   MAX_FLAG     = 10;
  27.  
  28.   FAREA_ACTIVE    = $0001; (* Bit 0 - Active?                         *)
  29.   FAREA_NEWFILES  = $0002; (* Bit 1 - Include in new files check      *)
  30.   FAREA_DEFAULT   = $0004; (* Bit 2 - Tagged by default               *)
  31.   FAREA_DUPECHK   = $0008; (* Bit 3 - Include upload dupe check       *)
  32.   FAREA_VIRUSCHK  = $0010; (* Bit 4 - Include upload virus check      *)
  33.   FAREA_FREE      = $0020; (* Bit 5 - All files are free              *)
  34.   FAREA_CDROM     = $0040; (* Bit 6 - CD-ROM area (ie. READONLY)      *)
  35.   FAREA_NOLISTREQ = $0080; (* Bit 7 - Allow dl files not in file list *)
  36.   FAREA_JUMP      = $0100; (* Bit 8 - Link to another area list       *)
  37.   FAREA_FILESBBS  = $0200; (* Bit 9 - Force FILES.BBS                 *)
  38.   FAREA_OFFLINE   = $0400; (* Bit10 - Force all files offline         *)
  39.  
  40. TYPE
  41.   COFlagType   = Array [1..MAX_FLAG] of Byte;     (* Flags, bitmapped *)
  42.   Security     = Record
  43.     Bpsrate  : Word;                      (* Current BPS rate div 100 *)
  44.     Age      : Byte;                      (* Age  . . . . . . . . . . *)
  45.     SecLvl   : Word;                      (* Security Level . . . . . *)
  46.     Flags    : COFlagType;                (* Flags ON . . . . . . . . *)
  47.     NotFlags : COFlagType;                (* Flags OFF  . . . . . . . *)
  48.   End;                                    (* Size 25 bytes  . . . . . *)
  49.  
  50.   TimeRec      = Word;                    (* Minutes after 00:00 *)
  51.  
  52.   PathStr      = String [79];
  53.   DirStr       = String [67];
  54.   ANameStr     = String [60];
  55.   PassStr      = String [15];
  56.   MenuStr      = String [08];
  57.   GroupStr     = String [03];
  58.  
  59.  
  60.  
  61. TYPE
  62.   TCOFileArea  = Record
  63.     {000}  Id           : LongInt;  (* Always ID_CFG_FAREA                   *)
  64.     {004}  Attrib       : LongInt;  (* File area attributes.                 *)
  65.     {008}  Name         : ANameStr; (* File area name.                       *)
  66.     {069}  DownloadSec  : Security; (* Sec needed to download files.         *)
  67.     {094}  UploadSec    : Security; (* Sec needed to upload files.           *)
  68.     {119}  FileListSec  : Security; (* Sec needed to list files.             *)
  69.     {144}  Password     : PassStr;  (* Password needed to enter file area.   *)
  70.     {160}  DownloadPath : DirStr;   (* Download path.                        *)
  71.     {228}  Basename     : MenuStr;  (* Filebase file name w/out extension    *)
  72.     {237}  EmptySpace   : Array [1..51] of Byte;
  73.     {288}  SubDirNum    : Word;     (* Current subdirectory number           *)
  74.     {290}  JumpDirNum   : Word;     (* If FAREA_JUMP, where to jump          *)
  75.     {292}  UploadArea   : LongInt;  (* If empty : Current area               *)
  76.     {296}  Group        : GroupStr; (* Filearea group                        *)
  77.     {300}  ArchiveFmt   : Byte;     (* Convert files to this archive format. *)
  78.     {301}  KillDaysDL   : Word;     (* Kill file if not dl'd in last n days. *)
  79.     {303}  KillDaysFD   : Word;     (* Kill file if older than n days.       *)
  80.     {305}  FilePoints   : Word;     (* Default file points per file dl'd.    *)
  81.     {307}  OpenFrom     : TimeRec;  (* Opening time in minutes after 00:00   *)
  82.     {309}  OpenTo       : TimeRec;  (* Closing time in minutes after 00:00   *)
  83.     {311}  FILESBBS     : PathStr;  (* Name of FILES.BBS                     *)
  84.     {391}
  85.   End;
  86.